home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / bbs / QN07.lha / qn.dd < prev    next >
Text File  |  1998-02-12  |  5KB  |  93 lines
  1. /* Quick Note v0.7 Door for DDBBS --  by Xpose */
  2. Parse Arg node
  3. Options results
  4. nodeid="DREAMREXX"node
  5. address value nodeid
  6. tr = transmit
  7. MENU:
  8. tr " "
  9. tr "             ______________________________________________________   "
  10. tr "          __/                                                      \__"
  11. tr "         /_____________     Quick Note v0.7 by Xpose     _____________\        "
  12. tr "                       \________________________________/            "
  13. tr "         ____________________ ____________________ ____________________"
  14. tr "        |                    |                    |                    |"
  15. tr "        | Check For SysOp    |  Quick Note  v0.7  | Public User Note   |"
  16. tr "        |                    |  ~~~~~~~~~~~~~~~~  |                    |"
  17. tr "        | Write A Comment    |  Created By Xpose  | About Quick Note   |"
  18. tr "        |                    |   ~~~~~~~~~~~~~~   |                    |"
  19. tr "        | Note the SysOp     |                    | Quit Quick Note    |"
  20. tr "        |____________________|____________________|____________________|"
  21. tr "                        ________________________________"
  22. tr "          _____________/                                \_____________ "
  23. tr "         \__                Quick Note v0.7 by Xpose                __/"
  24. tr "            \______________________________________________________/";getchar
  25.  
  26. if result = "c" then call CHECK
  27. if result = "w" then call COMMENT
  28. if result = "n" then call NOTE
  29. if result = "p" then call PUBLIC
  30. if result = "a" then call ABOUT
  31. if result = "q" then call QUIT
  32. CALL menu
  33.  
  34. CHECK:
  35. SYSTEMINFO 9
  36. tr result;getchar;call MENU
  37.  
  38. COMMENT:
  39. tr " ";tr " Commenting the SysOp ";tr " Max 200 Chars ";newline;newline;PROMPT 200 NORMAL "> "
  40. COMM = result
  41. fifoexecute "ECHO "COMM" >> DOORS:QN/COMMENTS.DAT"
  42. call MENU
  43.  
  44. NOTE:
  45. tr " ";tr " Writing a Note for the SysOp ";tr " Start a newline with /q to quit ";newline
  46. LOOPEY:
  47. PROMPT 1000 NORMAL " "
  48. PAT = result
  49. if result = "/q" then call TELP
  50. if PAT = "RESULT" then PAT = " "
  51. fifoexecute "ECHO "PAT" >> DOORS:QN/SNOTES.DAT"
  52. call LOOPEY
  53. TELP:
  54. getuser 2; HANDLE = result
  55. fifoexecute "ECHO -------- >> DOORS:QN/SNOTES.DAT"
  56. fifoexecute "ECHO "HANDLE" >> DOORS:QN/SNOTES.DAT"
  57. fifoexecute "ECHO ------------------------------------------------------------------------------- >> DOORS:qn/SNOTES.DAT"
  58. call MENU
  59. PUBLIC:
  60. tr " "; tr " Writing Public Quick Note ";tr "Start a line with /q to quit ";newline
  61. LOOPET:
  62. PROMPT 1500 NORMAL " "
  63. PAF = result
  64. if result = "/q" then call SPOT
  65. if PAF = "RESULT" then PAF = " "
  66. fifoexecute "ECHO "PAF" >> DOORS:QN/PNOTES.DAT"
  67. call LOOPET
  68. SPOT:
  69. getuser 2;HANDLE = result
  70. fifoexecute "ECHO ------- >> DOORS:qn/SNOTES.DAT"
  71. fifoexecute "ECHO "HANDLE" >> DOORS:QN/PNOTES.DAT"
  72. fifoexecute "ECHO ------------------------------------------------------------------------------- >> DOORS:qn/SNOTES.DAT"
  73. ABOUT:
  74. tr " ";
  75. tr "                                                                              "
  76. tr "    ========================================================================   "
  77. tr "    = About Quick Note v0.7 =         ==                                   ="
  78. tr "    =========================         ==  ConTaCT : Xpose                  ="
  79. tr "    =                                 ==                                   ="
  80. tr "    = Coding & Graphical Art          == EmaiL : Xpose1200@mailexcite.com  ="
  81. tr "    = ~~~~~~~~~~~~~~~~~~~~~~          ==                                   ="
  82. tr "    =        By Xpose                 == or write to :  Æhmad H.S          ="
  83. tr "    =        ~~~~~~~~                 ==                                   ="
  84. tr "    =      February `98               ==               P.O.Box 3174        ="
  85. tr "    =                                 ==                                   ="
  86. tr "    =                                 ==             Manama - Bahrain      ="
  87. tr "    ========================================================================"
  88. getchar
  89. call MENU
  90.  
  91. QUIT:
  92. SHUTDOWN
  93.